From 809fae80e55aea134d63369956da8241d6905345 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 17 Nov 2009 14:57:39 +0000 Subject: [PATCH] * net/tramp-gvfs.el (tramp-gvfs-handle-write-region): Set file modification time. --- lisp/net/tramp-gvfs.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index a04f891b3f5..a07b5df0a1e 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el @@ -727,6 +727,10 @@ is no information where to trace the message.") (signal (car err) (cdr err))) (delete-file tmpfile))))) + ;; Set file modification time. + (when (or (eq visit t) (stringp visit)) + (set-visited-file-modtime (nth 5 (file-attributes filename)))) + ;; The end. (when (or (eq visit t) (null visit) (stringp visit)) (tramp-message v 0 "Wrote %s" filename)) -- 2.30.2